home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1987 September / 64er_Magazin_87-09_1987_Markt__Technik_de_Side_A.d64 / basic-line maker (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  49 lines
  1. 100 rem ********************
  2. 110 rem *  hua phuoc can   *
  3. 120 rem * alte josefstr.15 *
  4. 130 rem *   4450 lingen    *
  5. 140 rem *  tel.0591/74567  *
  6. 150 rem *------------------*
  7. 160 rem * basic-line maker *
  8. 170 rem *     17.10.86     *
  9. 180 rem ********************
  10. 190 dimd(80):b%=2049:poke53280,0:poke53281,0
  11. 200 fori=0to7:readq:poke704+i,q:next
  12. 210 input"[147][158]zeilennummer:";ze
  13. 220 input"kommentar:";k$
  14. 230 input"anfangsadresse:";an
  15. 240 input"endadresse+1  :";en
  16. 250 input"startadresse  :";sa
  17. 260 print" fehlerfrei ? "
  18. 270 geta$:ifa$=""goto270
  19. 280 ifa$<>"j"goto210
  20. 290 :
  21. 300 rem === basic-zeile 'baz'===
  22. 310 k$=str$(b%+14+len(k$))+":"+k$
  23. 320 fori=1tolen(k$):d(i+4)=asc(mid$(k$,i,1)):next:i0=i
  24. 330 h=len(k$)+b%+6
  25. 340 d(1)=int(h/256):d(0)=h-d(1)*256
  26. 350 d(3)=int(ze/256):d(2)=ze-d(3)*256
  27. 360 d(4)=158
  28. 370 fori=b%tob%+i0+6:pokei,d(i-b%):next
  29. 380 :
  30. 390 rem === copy-routine 'cor'===
  31. 400 rem === 'baz'+'cor'       ===
  32. 410 forii=itoi+29:readq:pokeii,q:next
  33. 420 pl=ii+en-an
  34. 430 pokei+3,int(ii/256):pokei+1,ii-peek(i+3)*256
  35. 440 pokei+11,int(pl/256):pokei+9,pl-peek(i+11)*256
  36. 450 pokei+19,int(en/256):pokei+17,en-peek(i+19)*256
  37. 460 pokei+29,int(sa/256):pokei+28,sa-peek(i+29)*256
  38. 470 :
  39. 480 rem === 'baz'+'cor'+'mcp' ===
  40. 490 poke781,int(an/256):poke780,an-peek(781)*256
  41. 500 poke91,peek(i+19):poke90,peek(i+17)
  42. 510 poke89,peek(i+11):poke88,peek(i+9)
  43. 520 rem === basic-endadresse ===
  44. 530 poke46,peek(89):poke45,peek(88)
  45. 540 sys704
  46. 550 data133,95,134,96,32,191,163,
  47. 560 data169,255,160,255,133,95,132,96,169,255,160,255,133,90,132,91,169,255
  48. 570 data160,255,133,88,132,89,32,191,163,76,,
  49.